inherited FPedidoVenda: TFPedidoVenda
  Left = 481
  Top = 83
  Caption = 'Pedido Venda'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            DataSource = DSPedido
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
        end
        object PageControl: TPageControl
          Left = 1
          Top = 70
          Width = 842
          Height = 351
          ActivePage = TSPedido
          Align = alClient
          TabIndex = 0
          TabOrder = 2
          OnChange = PageControlChange
          object TSPedido: TTabSheet
            Caption = 'Pedido'
            object Label1: TLabel
              Left = 2
              Top = 0
              Width = 40
              Height = 16
              Caption = 'Codigo'
            end
            object DBText1: TDBText
              Left = 2
              Top = 18
              Width = 85
              Height = 21
              DataField = 'PED_CODIGO'
              DataSource = DSPedido
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label2: TLabel
              Left = 1
              Top = 126
              Width = 61
              Height = 16
              Caption = 'Solicitante'
              FocusControl = DBESolicitante
            end
            object Label5: TLabel
              Left = 2
              Top = 81
              Width = 40
              Height = 16
              Caption = 'Cliente'
            end
            object Label4: TLabel
              Left = 2
              Top = 213
              Width = 55
              Height = 16
              Caption = 'Vendedor'
            end
            object Label6: TLabel
              Left = 89
              Top = 0
              Width = 27
              Height = 16
              Caption = 'Data'
            end
            object Label7: TLabel
              Left = 254
              Top = 126
              Width = 102
              Height = 16
              Caption = 'N'#176' Pedido Cliente'
              FocusControl = DBENumeroCliente
            end
            object Label8: TLabel
              Left = 1
              Top = 172
              Width = 59
              Height = 16
              Caption = 'Atendente'
              FocusControl = DBEAtendente
            end
            object Label9: TLabel
              Left = 2
              Top = 260
              Width = 74
              Height = 16
              Caption = '% Comiss'#227'o'
              FocusControl = DBEPerComissao
            end
            object DBTDataSituacao: TDBText
              Left = 492
              Top = 22
              Width = 100
              Height = 21
              DataField = 'PED_DATASITUACAO'
              DataSource = DSPedido
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label3: TLabel
              Left = 492
              Top = 4
              Width = 82
              Height = 16
              Caption = 'Data Situa'#231#227'o'
              FocusControl = DBENumeroCliente
            end
            object DBESolicitante: TDBEdit
              Left = 1
              Top = 142
              Width = 249
              Height = 24
              CharCase = ecUpperCase
              DataField = 'PED_SOLICITANTE'
              DataSource = DSPedido
              TabOrder = 4
              OnEnter = DBESolicitanteEnter
            end
            object DBLCBCliente: TDBLookupComboBox
              Left = 2
              Top = 97
              Width = 547
              Height = 24
              DataField = 'PED_CLIENTE'
              DataSource = DSPedido
              KeyField = 'CLI_CODIGO'
              ListField = 'CLI_RAZAO'
              ListSource = DSCliente
              TabOrder = 3
              OnExit = DBLCBClienteExit
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBLCBVendedor: TDBLookupComboBox
              Left = 2
              Top = 230
              Width = 547
              Height = 24
              DataField = 'PED_VENDEDOR'
              DataSource = DSPedido
              KeyField = 'VEND_CODIGO'
              ListField = 'VEND_NOME'
              ListSource = DSvendedor
              TabOrder = 7
              OnEnter = DBLCBVendedorEnter
              OnExit = DBLCBVendedorExit
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBENumeroCliente: TDBEdit
              Left = 254
              Top = 142
              Width = 123
              Height = 24
              DataField = 'PED_NUMEROCLIENTE'
              DataSource = DSPedido
              TabOrder = 5
            end
            object DBDEData: TDBDateEdit
              Left = 89
              Top = 18
              Width = 108
              Height = 26
              DataField = 'PED_DATA'
              DataSource = DSPedido
              ButtonWidth = 26
              NumGlyphs = 2
              TabOrder = 0
              OnEnter = DBDEDataEnter
              OnExit = DBDEDataExit
            end
            object DBRGNatureza: TDBRadioGroup
              Left = 2
              Top = 42
              Width = 543
              Height = 38
              Caption = 'Natureza'
              Columns = 3
              DataField = 'PED_NATUREZA'
              DataSource = DSPedido
              Items.Strings = (
                'Mercadoria e Servi'#231'o'
                'Mercadoria '
                'Servi'#231'o')
              TabOrder = 2
              Values.Strings = (
                '0'
                '1'
                '2')
              OnClick = DBRGNaturezaClick
            end
            object DBEAtendente: TDBEdit
              Left = 1
              Top = 188
              Width = 249
              Height = 24
              CharCase = ecUpperCase
              DataField = 'PED_ATENDENTE'
              DataSource = DSPedido
              TabOrder = 6
            end
            object DBEPerComissao: TDBEdit
              Left = 2
              Top = 279
              Width = 57
              Height = 24
              DataField = 'PED_PERCCOMISSAO'
              DataSource = DSPedido
              TabOrder = 8
              OnEnter = DBEPerComissaoEnter
              OnExit = DBEPerComissaoExit
              OnKeyPress = DBEPerComissaoKeyPress
            end
            object DBRGSituacao: TDBRadioGroup
              Tag = 5
              Left = 203
              Top = 5
              Width = 284
              Height = 39
              Caption = 'Situa'#231#227'o'
              Columns = 3
              DataField = 'PED_SITUACAO'
              DataSource = DSPedido
              Enabled = False
              Items.Strings = (
                'Em aberto'
                'Encerrado'
                'Cancelado')
              TabOrder = 1
              Values.Strings = (
                '0'
                '1'
                '2')
              OnClick = DBRGSituacaoClick
            end
            object BtnImprimir: TBitBtn
              Left = 512
              Top = 314
              Width = 85
              Height = 31
              Caption = '&Imprimir'
              TabOrder = 9
              OnClick = BtnImprimirClick
              Glyph.Data = {
                76050000424D7605000000000000360400002800000012000000100000000100
                08000000000040010000C30E0000C30E00000001000000000000000000008080
                8000000080000080800000800000808000008000000080008000408080004040
                0000FF80000080400000FF00400000408000FFFFFF00C0C0C0000000FF0000FF
                FF0000FF0000FFFF0000FF000000FF00FF0080FFFF0080FF0000FFFF8000FF80
                80008000FF004080FF00C0DCC000F0CAA60060208000C0FFFF00E0E0A0008000
                60008080FF00C0800000FFC0C000FFCF0000FFFF6900E0FFE000B39CDD00EE8F
                B300F96F2A00CDB83F0036844800418C9500425E8E007A62A000AC4F6200BE2F
                1D007666280000450000013E450013286A006A39850085324A00040404000808
                08000C0C0C0011111100161616001C1C1C002222220029292900303030005F5F
                5F00555555004D4D4D0042424200393939000007000000000D008199B700B499
                840090BDBD00607F7F007F606000000E000000001B00000028002B090800001D
                0000000039009B00000000250000000049003B111100002F000000005D004517
                1700003A000011114900531C1C00FF160000FF002B006C212100141459000051
                00006A1A47006732190000610000FF310000FF0061007B20530067431600E22E
                2E001659260004465100492E68008F520700B8186A0015239000FF530000FF00
                A300124A6A006C3375009A414A000B653700152CA400B11F8300FF2C4E00B651
                2000926408000B566F00AD435900127236001733B00000A100001F5F77007147
                89001C43B0007D2DB70095860000236E7A00009F260001A9730000CA0000015B
                AC00C21D2000705294004CAA240089940A007B6E360090754400A800FF00FF71
                0000FF00DF004A915600F84834008232CC007041E40001CA680042BC3600FF9A
                0000B7229600337D85008CB72500ED5A360000FF5C000048FF00A29B22004DCF
                42005258C20095D32000E024A500B556730000A9A9003C6FD000589F67000BCF
                890000ACFF00FE2EA7007F59E20067DC4C00FF18FF00FF7D3A0018D0B10000FF
                C70000E2FF003D9ADF009F815600BA43C6008B71AF00C9A23800CE53D100659A
                FF00DBCA4600FF4DFF006AE9C800E0DE4C00FF98FF0082C0DF00A5ECE900CDF6
                F500FFD0FF005AACB100AE916300654C22003F4E8D0070705000FFFFD000FFE7
                FF00696969007777770086868600969696009D9D9D00A4A4A400B2B2B200CBCB
                CB00D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F80066C1B20078BF
                8000F0F0C600FFA4B200FFB3FF00A38ED10037DCC300549EA00070AE7600C19E
                7800BF648300D383A400323FD100007DFF0023784400605F24002C0E0E000000
                BE00001FFF00003931003E85D9008577020081D8B0001D21560030000000B3C8
                88000079A0008170EA0069F15100CD749100FF7CFF00FFFFA200F0FBFF00A4A0
                A000537F200029798A00326932007F05EC00AC112F00423FEE000F0E00000000
                00000000000000000000000F00000F0E0101010101010101010101010101000F
                00000E010101010101010101010101010101010000000E0F0F0F0F0F0F0F0F0F
                0F0F0F0F0F0F0F0000000E0F12040F0F0F0F0F0F000F000F000F0F0000000E0F
                0F0E0E0E0E0E0E0E0E0E0E0E0E0E0F0000000E0E0E0F0F0F0F0F0F0F0F0F0F0F
                0F0F0E0E00000F0F0F0E0E0E0E0E0E0E0E0E0E0E0E010F0F00000F0F0F0E0F0F
                0F0F0F0F0F0F0F0F0E010F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E0E0E010F0F
                00000F0F0F0E0F0F0F0F0F0F0F0F0F0F0E010F0F00000F0F0F0E0E0E0E0E0E0E
                0E0E0E0E0E010F0F00000F0F0F0E0F0F0F0F0F0F0F0F0F0F0E010F0F00000F0F
                0F0E0E0E0E0E0E0E0E0E0E0101010F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E01
                0E0F0F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E010F0F0F0F0000}
            end
            object BtnAtivaSituacao: TBitBtn
              Left = 4
              Top = 329
              Width = 44
              Height = 19
              Caption = 'Ativar'
              TabOrder = 10
              OnClick = BtnAtivaSituacaoClick
            end
            object BtnEncerraSituacao: TBitBtn
              Left = 53
              Top = 329
              Width = 63
              Height = 19
              Caption = 'Encerrar'
              TabOrder = 11
              OnClick = BtnEncerraSituacaoClick
            end
            object BtnCancelaSituacao: TBitBtn
              Left = 121
              Top = 329
              Width = 62
              Height = 19
              Caption = 'Cancelar'
              TabOrder = 12
              OnClick = BtnCancelaSituacaoClick
            end
          end
          object TSItensPedido: TTabSheet
            Caption = 'Itens do Pedido'
            ImageIndex = 1
            object Label32: TLabel
              Left = 0
              Top = 44
              Width = 45
              Height = 16
              Caption = 'Produto'
            end
            object Label35: TLabel
              Left = 337
              Top = 132
              Width = 93
              Height = 16
              Caption = 'Quantidade (F5)'
            end
            object Label27: TLabel
              Left = 433
              Top = 132
              Width = 78
              Height = 16
              Caption = 'Valor Unit'#225'rio'
            end
            object LtotalItens: TLabel
              Left = 220
              Top = 242
              Width = 159
              Height = 16
              AutoSize = False
              Caption = 'Total itens :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object LtotalItensencerrados: TLabel
              Left = 390
              Top = 242
              Width = 212
              Height = 16
              AutoSize = False
              Caption = 'Total itens encerrado :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label15: TLabel
              Left = 0
              Top = 132
              Width = 42
              Height = 16
              Caption = 'Servi'#231'o'
            end
            object Label16: TLabel
              Left = 0
              Top = 86
              Width = 31
              Height = 16
              Caption = 'Local'
            end
            object Label17: TLabel
              Left = 0
              Top = 192
              Width = 76
              Height = 16
              Caption = 'Data Entrega'
            end
            object Label18: TLabel
              Left = 517
              Top = 133
              Width = 59
              Height = 16
              Caption = 'Valor total'
            end
            object Label28: TLabel
              Left = 0
              Top = 1
              Width = 87
              Height = 16
              Caption = 'C'#243'digo produto'
            end
            object Label66: TLabel
              Left = 101
              Top = 1
              Width = 116
              Height = 16
              Caption = 'Refer'#234'ncia Produto'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label38: TLabel
              Left = 273
              Top = 1
              Width = 110
              Height = 16
              Caption = 'Refer'#234'ncia Cliente'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBGrid1: TDBGrid
              Tag = 5
              Left = 0
              Top = 238
              Width = 834
              Height = 82
              Align = alBottom
              DataSource = DSItensPedido
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              TabOrder = 14
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid1CellClick
              OnKeyUp = DBGrid1KeyUp
              Columns = <
                item
                  Expanded = False
                  FieldName = 'ITENSPED_CODIGO'
                  Title.Caption = 'Item'
                  Width = 54
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_PRODUTOCLIENTE'
                  Title.Caption = 'N Produto Cliente'
                  Width = 89
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PROD_DESCRICAOSAI'
                  Title.Caption = 'Produto'
                  Width = 237
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'LOC_DESCRICAO'
                  Title.Caption = 'Local'
                  Width = 101
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_DESCRICAOSERVICO'
                  Title.Caption = 'Servi'#231'o'
                  Width = 306
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_QUANTIDADE'
                  Title.Caption = 'Quantidade'
                  Width = 70
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_QUANTIDADEATEND'
                  Title.Caption = 'Qtd Atendida'
                  Width = 71
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_VALORUNIT'
                  Title.Caption = 'Valor Unit'#225'rio'
                  Width = 70
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_VALORTOTAL'
                  Title.Caption = 'Valor Total'
                  Width = 73
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_DATAENTREGA'
                  Title.Caption = 'Data Entrega'
                  Width = 75
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_SITUACAO'
                  Title.Caption = 'Situa'#231#227'o'
                  Visible = True
                end>
            end
            object BtnIncluirProduto: TBitBtn
              Tag = 1
              Left = 0
              Top = 239
              Width = 69
              Height = 24
              Caption = 'I&ncluir'
              TabOrder = 11
              OnClick = BtnIncluirProdutoClick
            end
            object BtnAlterarProduto: TBitBtn
              Tag = 1
              Left = 74
              Top = 239
              Width = 69
              Height = 24
              Caption = 'Alterar'
              TabOrder = 12
              OnClick = BtnAlterarProdutoClick
            end
            object BtnDeletarProduto: TBitBtn
              Tag = 1
              Left = 148
              Top = 239
              Width = 69
              Height = 24
              Caption = 'Excluir'
              TabOrder = 13
              OnClick = BtnDeletarProdutoClick
            end
            object DBLCBProduto: TDBLookupComboBox
              Left = 0
              Top = 60
              Width = 603
              Height = 24
              Hint = '(F3) Visualizar Descri'#231#227'o - (F7) Todos - (F8) Cliente'
              KeyField = 'PROD_CODIGO'
              ListField = 'PROD_DESCRICAOSAI'
              ListSource = DSProduto
              ParentShowHint = False
              ShowHint = True
              TabOrder = 3
              OnEnter = DBLCBProdutoEnter
              OnKeyDown = DBLCBProdutoKeyDown
            end
            object EQuantidade: TEdit
              Left = 337
              Top = 148
              Width = 89
              Height = 21
              TabOrder = 6
              Text = '0'
              OnEnter = EQuantidadeEnter
              OnExit = EQuantidadeExit
              OnKeyDown = EQuantidadeKeyDown
              OnKeyPress = EQuantidadeKeyPress
            end
            object EValorProdutoUnit: TEdit
              Left = 433
              Top = 148
              Width = 81
              Height = 21
              TabOrder = 7
              Text = '0'
              OnEnter = EValorProdutoUnitEnter
              OnExit = EQuantidadeExit
              OnKeyPress = EQuantidadeKeyPress
            end
            object DBLCBlocal: TDBLookupComboBox
              Left = 0
              Top = 103
              Width = 603
              Height = 24
              KeyField = 'LOC_CODIGO'
              ListField = 'LOC_DESCRICAO'
              ListSource = DSLocal
              TabOrder = 4
              OnEnter = DBLCBlocalEnter
              OnExit = DBLCBlocalExit
              OnKeyDown = DBLCBProdutoKeyDown
            end
            object DEDataEntrega: TDateEdit
              Left = 0
              Top = 208
              Width = 113
              Height = 26
              ButtonWidth = 26
              NumGlyphs = 2
              TabOrder = 9
              OnEnter = DEDataEntregaEnter
            end
            object EValorProdutoTotal: TEdit
              Left = 517
              Top = 148
              Width = 86
              Height = 21
              TabOrder = 8
              Text = '0'
              OnEnter = EValorProdutoTotalEnter
              OnExit = EQuantidadeExit
              OnKeyPress = EQuantidadeKeyPress
            end
            object RGSituacaoItem: TRadioGroup
              Tag = 5
              Left = 118
              Top = 194
              Width = 281
              Height = 37
              Caption = 'Situa'#231#227'o'
              Columns = 3
              Enabled = False
              ItemIndex = 0
              Items.Strings = (
                'Em aberto'
                'Encerrado'
                'Cancelado')
              TabOrder = 10
            end
            object ECodigoProduto: TEdit
              Left = 0
              Top = 17
              Width = 91
              Height = 21
              MaxLength = 9
              TabOrder = 0
              OnExit = ECodigoProdutoExit
              OnKeyPress = ECodigoProdutoKeyPress
              OnKeyUp = ECodigoProdutoKeyUp
            end
            object MServico: TMemo
              Left = 0
              Top = 148
              Width = 335
              Height = 42
              MaxLength = 200
              TabOrder = 5
            end
            object EReferenciaProduto: TEdit
              Left = 101
              Top = 17
              Width = 165
              Height = 21
              MaxLength = 20
              TabOrder = 1
              OnExit = EReferenciaProdutoExit
              OnKeyUp = EReferenciaProdutoKeyUp
            end
            object EreferenciaCliente: TEdit
              Left = 273
              Top = 17
              Width = 165
              Height = 21
              MaxLength = 20
              TabOrder = 2
              OnKeyUp = EreferenciaClienteKeyUp
            end
          end
          object TSValorPedido: TTabSheet
            Caption = 'Valores do Pedido'
            ImageIndex = 3
            object Label10: TLabel
              Left = 112
              Top = 6
              Width = 71
              Height = 16
              Caption = '% Desconto'
              FocusControl = DBEPercDesconto
            end
            object Label11: TLabel
              Left = 191
              Top = 6
              Width = 89
              Height = 16
              Caption = 'Valor Desconto'
              FocusControl = DBEValorDesconto
            end
            object Label12: TLabel
              Left = 289
              Top = 6
              Width = 62
              Height = 16
              Caption = 'Valor Final'
              FocusControl = DBEValorfinal
            end
            object Label13: TLabel
              Left = 0
              Top = 6
              Width = 87
              Height = 16
              Caption = 'Valor dos Itens'
            end
            object DBTValor: TDBText
              Left = 4
              Top = 23
              Width = 91
              Height = 21
              Alignment = taRightJustify
              DataField = 'PED_VALOR'
              DataSource = DSPedido
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label37: TLabel
              Left = 0
              Top = 48
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object DBEPercDesconto: TDBEdit
              Left = 112
              Top = 23
              Width = 54
              Height = 21
              DataField = 'PED_PERCDESCONTO'
              DataSource = DSPedido
              TabOrder = 0
              OnEnter = DBEPercDescontoEnter
              OnExit = DBEPercDescontoExit
              OnKeyPress = DBEPerComissaoKeyPress
            end
            object DBEValorDesconto: TDBEdit
              Left = 191
              Top = 23
              Width = 88
              Height = 21
              DataField = 'PED_VALORDESCONTO'
              DataSource = DSPedido
              TabOrder = 1
              OnEnter = DBEValorDescontoEnter
              OnExit = DBEPercDescontoExit
              OnKeyPress = DBEPerComissaoKeyPress
            end
            object DBEValorfinal: TDBEdit
              Left = 289
              Top = 23
              Width = 150
              Height = 21
              DataField = 'PED_VALORFINAL'
              DataSource = DSPedido
              TabOrder = 2
              OnEnter = DBEValorfinalEnter
              OnExit = DBEPercDescontoExit
              OnKeyPress = DBEPerComissaoKeyPress
            end
            object DBMObs: TDBMemo
              Left = 0
              Top = 68
              Width = 406
              Height = 48
              DataField = 'PED_OBS'
              DataSource = DSPedido
              MaxLength = 100
              TabOrder = 3
            end
          end
          object TSAcompanhamento: TTabSheet
            Caption = 'Acompanhamento'
            ImageIndex = 2
            object DBText2: TDBText
              Left = 2
              Top = 18
              Width = 80
              Height = 21
              DataField = 'ITENSPED_CODIGO'
              DataSource = DSItensPedido
            end
            object DBText3: TDBText
              Left = 87
              Top = 18
              Width = 414
              Height = 21
              DataField = 'PROD_DESCRICAOSAI'
              DataSource = DSItensPedido
            end
            object DBText4: TDBText
              Left = 505
              Top = 18
              Width = 80
              Height = 21
              DataField = 'ITENSPED_DATAENTREGA'
              DataSource = DSItensPedido
            end
            object Label19: TLabel
              Left = 4
              Top = 68
              Width = 55
              Height = 16
              Caption = 'Processo'
            end
            object Label20: TLabel
              Left = 4
              Top = 112
              Width = 61
              Height = 16
              Caption = 'Data inicio'
            end
            object Label21: TLabel
              Left = 119
              Top = 112
              Width = 53
              Height = 16
              Caption = 'Data Fim'
            end
            object Label22: TLabel
              Left = 240
              Top = 112
              Width = 73
              Height = 16
              Caption = 'Respons'#225'vel'
            end
            object Label23: TLabel
              Left = 4
              Top = 154
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object Label24: TLabel
              Left = 4
              Top = 0
              Width = 25
              Height = 16
              Caption = 'Item'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label25: TLabel
              Left = 87
              Top = 0
              Width = 47
              Height = 16
              Caption = 'Produto'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label26: TLabel
              Left = 505
              Top = 0
              Width = 79
              Height = 16
              Caption = 'Data Entrega'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBNavigator2: TDBNavigator
              Tag = 5
              Left = 2
              Top = 44
              Width = 156
              Height = 24
              DataSource = DSItensPedido
              VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
              TabOrder = 0
              OnClick = DBNavigator2Click
            end
            object DBLCBProcesso: TDBLookupComboBox
              Left = 4
              Top = 84
              Width = 552
              Height = 24
              KeyField = 'PROC_CODIGO'
              ListField = 'PROC_DESCRICAO'
              ListSource = DSProcesso
              TabOrder = 1
              OnKeyDown = DBLCBProdutoKeyDown
            end
            object DEdatainicioProcesso: TDateEdit
              Left = 4
              Top = 128
              Width = 113
              Height = 26
              ButtonWidth = 26
              NumGlyphs = 2
              TabOrder = 2
              OnEnter = DEdatainicioProcessoEnter
            end
            object DEdataFimProcesso: TDateEdit
              Left = 119
              Top = 128
              Width = 114
              Height = 26
              ButtonWidth = 26
              NumGlyphs = 2
              TabOrder = 3
            end
            object EResponsavel: TEdit
              Left = 240
              Top = 128
              Width = 247
              Height = 21
              CharCase = ecUpperCase
              MaxLength = 30
              TabOrder = 4
            end
            object EObs: TEdit
              Left = 4
              Top = 170
              Width = 328
              Height = 21
              CharCase = ecUpperCase
              MaxLength = 100
              TabOrder = 5
            end
            object BtnIncluirAcompanhamento: TBitBtn
              Tag = 1
              Left = 5
              Top = 201
              Width = 69
              Height = 24
              Caption = 'I&ncluir'
              TabOrder = 6
              OnClick = BtnIncluirAcompanhamentoClick
            end
            object BtnAlterarAcompanhamento: TBitBtn
              Tag = 1
              Left = 79
              Top = 201
              Width = 69
              Height = 24
              Caption = 'Alterar'
              TabOrder = 7
              OnClick = BtnAlterarAcompanhamentoClick
            end
            object BtnDeletarAcompanhamento: TBitBtn
              Tag = 1
              Left = 153
              Top = 201
              Width = 69
              Height = 24
              Caption = 'Excluir'
              TabOrder = 8
              OnClick = BtnDeletarAcompanhamentoClick
            end
            object DBGrid2: TDBGrid
              Tag = 5
              Left = 0
              Top = 201
              Width = 834
              Height = 119
              Align = alBottom
              DataSource = DSAcompanhamento
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              TabOrder = 9
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid1CellClick
              OnKeyUp = DBGrid1KeyUp
              Columns = <
                item
                  Expanded = False
                  FieldName = 'ACOMP_ITEMPEDIDO'
                  Title.Caption = 'Item'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PROC_DESCRICAO'
                  Title.Caption = 'Processo'
                  Width = 299
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ACOMP_DATAINICIAL'
                  Title.Caption = 'Data inicial'
                  Width = 80
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ACOMP_DATAFINAL'
                  Title.Caption = 'Data final'
                  Width = 66
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ACOMP_RESPONSAVEL'
                  Title.Caption = 'Responsavel'
                  Width = 192
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ACOMP_OBS'
                  Title.Caption = 'Obs'
                  Visible = True
                end>
            end
            object BtnConsultaAcompanhamento: TBitBtn
              Left = 502
              Top = 38
              Width = 90
              Height = 27
              Caption = 'C&onsuta'
              TabOrder = 10
              OnClick = BtnConsultaAcompanhamentoClick
              Glyph.Data = {
                42010000424D4201000000000000760000002800000011000000110000000100
                040000000000CC00000000000000000000001000000010000000000000000000
                BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
                77777000000070000000007777777000000070FFFFFFF07777700000000070F7
                7777F07777000000000070F77777F07770007000000070F77780008700077000
                000070F7700FFF0000777000000070F708FFFF0807777000000070F80E000F07
                08777000000070F0EFEFEF0770777000000070F0F0000F077077700000007000
                EFEFFF0770777000000077780000000708777000000077770077777807777000
                0000777770077700777770000000777777800087777770000000777777777777
                777770000000}
            end
          end
          object TSCobranca: TTabSheet
            Caption = 'Fechamento'
            ImageIndex = 4
            object DBText7: TDBText
              Left = 4
              Top = 18
              Width = 78
              Height = 16
              DataField = 'COB_CODIGO'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText8: TDBText
              Left = 89
              Top = 18
              Width = 71
              Height = 16
              DataField = 'COB_DATA'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText9: TDBText
              Left = 182
              Top = 18
              Width = 154
              Height = 16
              DataField = 'COB_VALOR'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label30: TLabel
              Left = 4
              Top = 1
              Width = 44
              Height = 16
              Caption = 'Codigo'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label31: TLabel
              Left = 89
              Top = 1
              Width = 29
              Height = 16
              Caption = 'Data'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label33: TLabel
              Left = 182
              Top = 1
              Width = 32
              Height = 16
              Caption = 'Valor'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label67: TLabel
              Left = 4
              Top = 64
              Width = 72
              Height = 16
              Caption = 'Presta'#231#245'es '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBGrid3: TDBGrid
              Tag = 5
              Left = 0
              Top = 68
              Width = 606
              Height = 302
              Align = alBottom
              DataSource = DSCobranca
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              TabOrder = 0
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_CODIGO'
                  Title.Caption = 'Item'
                  Width = 73
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_DATAVENCIMENTO'
                  Title.Caption = 'Data Vencimento'
                  Width = 110
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_VALOR'
                  Title.Caption = 'Valor'
                  Width = 105
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_BANCO'
                  Title.Caption = 'Banco'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_AGENCIA'
                  Title.Caption = 'Ag'#234'ncia'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_CHEQUE'
                  Title.Caption = 'Cheque'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_EMITENTE'
                  Title.Caption = 'Emitente'
                  Visible = True
                end>
            end
            object BtnGeraCobranca: TBitBtn
              Left = 464
              Top = 18
              Width = 135
              Height = 25
              Caption = 'Fechamento'
              TabOrder = 1
              OnClick = BtnGeraCobrancaClick
            end
          end
        end
        object Panel4: TPanel
          Left = 1
          Top = 36
          Width = 842
          Height = 34
          Align = alTop
          TabOrder = 3
          object Label34: TLabel
            Left = 0
            Top = 5
            Width = 50
            Height = 16
            Caption = 'Pedido :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBText10: TDBText
            Left = 52
            Top = 5
            Width = 74
            Height = 21
            DataField = 'PED_CODIGO'
            DataSource = DSPedido
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label36: TLabel
            Left = 128
            Top = 5
            Width = 47
            Height = 16
            Caption = 'Cliente :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBText11: TDBText
            Left = 178
            Top = 5
            Width = 266
            Height = 21
            DataField = 'CLI_RAZAO'
            DataSource = DSCliente
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBText5: TDBText
            Left = 490
            Top = 5
            Width = 108
            Height = 21
            Alignment = taRightJustify
            DataField = 'PED_VALORFINAL'
            DataSource = DSPedido
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label29: TLabel
            Left = 448
            Top = 5
            Width = 38
            Height = 16
            Caption = 'Valor :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
      end
    end
  end
  object QPedido: TQuery
    AfterInsert = QPedidoAfterInsert
    AfterEdit = QPedidoAfterEdit
    BeforePost = QPedidoBeforePost
    AfterPost = QPedidoAfterPost
    AfterCancel = QPedidoAfterCancel
    DatabaseName = 'BasePedidoVenda'
    RequestLive = True
    SQL.Strings = (
      'Select * from PedidoVenda'
      'Order By Ped_Codigo')
    Left = 284
    Top = 400
  end
  object DSPedido: TDataSource
    DataSet = QPedido
    Left = 313
    Top = 400
  end
  object QItensPedido: TQuery
    OnPostError = QItensPedidoPostError
    DatabaseName = 'BasePedidoVenda'
    Filter = ' ItensPed_pedido = 20'
    Filtered = True
    SQL.Strings = (
      'Select ItensPedidoVenda.* ,Prod_DescricaoSai,Loc_Descricao'
      
        'from local Right join (ItensPedidoVenda left join produto on Ite' +
        'nsPed_Produto = Prod_Codigo) on ItensPed_Local = Loc_Codigo')
    Left = 383
    Top = 376
  end
  object DSItensPedido: TDataSource
    DataSet = QItensPedido
    Left = 188
    Top = 272
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 463
    Top = 161
  end
  object DSvendedor: TDataSource
    DataSet = DMGestao.QVendedor
    Left = 448
    Top = 229
  end
  object DBPedidoVenda: TDatabase
    AliasName = 'Gestao'
    Connected = True
    DatabaseName = 'BasePedidoVenda'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=LINKTEC'
      'PASSWORD=172026')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 249
    Top = 400
  end
  object QAux: TQuery
    DatabaseName = 'BasePedidoVenda'
    Left = 303
    Top = 432
  end
  object DSProduto: TDataSource
    DataSet = QProduto
    Left = 360
    Top = 50
  end
  object QVerifica: TQuery
    DatabaseName = 'BasePedidoVenda'
    SQL.Strings = (
      'Select * from ItensPedidoVenda')
    Left = 334
    Top = 432
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 327
    Top = 216
  end
  object DSProcesso: TDataSource
    DataSet = DMGestao.QProcesso
    Left = 376
    Top = 200
  end
  object DSAcompanhamento: TDataSource
    DataSet = QAcompanhamento
    Left = 363
    Top = 272
  end
  object QAcompanhamento: TQuery
    DatabaseName = 'BasePedidoVenda'
    SQL.Strings = (
      'Select ACOMPANHAMENTOITEMPEDIDOVENDA.*,proc_Descricao'
      'from ACOMPANHAMENTOITEMPEDIDOVENDA Left join Processo'
      'on ACOMP_PROCESSO = Proc_codigo')
    Left = 334
    Top = 272
  end
  object QProduto: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select Prod_Codigo,PROD_DESCRICAOSAI,PROD_TIPO from Produto'
      'Where Prod_Natureza in (0,2)')
    Left = 312
    Top = 194
  end
  object QCobranca: TQuery
    DatabaseName = 'BasePedidoVenda'
    SQL.Strings = (
      
        'select * from cobranca INNER JOIN PrestacaoCobranca ON Cob_Codig' +
        'o = PrestCob_Cobranca'
      'Order By PrestCob_CODIGO')
    Left = 326
    Top = 320
  end
  object DSCobranca: TDataSource
    DataSet = QCobranca
    Left = 355
    Top = 320
  end
  object QVerificaAcompanhamento: TQuery
    DatabaseName = 'BasePedidoVenda'
    SQL.Strings = (
      'Select * from ItensPedidoVenda')
    Left = 302
    Top = 272
  end
end
